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Vacuum Chamber Translation/Positioning Mechanism 
and Welder Power Supply Controller 


1.0 Introduction 

Welding in the vacuum of space represents an important and fun- 
damental problem for space exploration. Repairs or connection of 
metal components on orbit or during travel to the moon or distant 
planets may be required. Cracks or holes in space craft skin or 
supporting structures external to the pressurized section will 
require some type of repair that must be permanently made to the 
skin or support by welding. This research addressed the develop- 
ment of a translation/positioning system that will permit 
research into welding of metal samples in a small vacuum chamber 
located at Marshall Space Flight Center (MSFC) . The unit, 
described below, is fully programmable and currently configured 
to perform straight line translation. The software and hardware 
have also been provided for the eventual control of start and 
power control functions of a welder power supply located at MSFC. 

A photograph of the completed device is shown in Figure 1 . For 
reference and following discussions, a coordinate system will be 
assigned as Z, the vertical axis, X, the lateral axis, and Y the 
horizontal axis or direction in which the sample table is trans- 
lated . 
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ORIGINAL FAGE 

BLACK AND WHITE PHOTOGRAPH 



FIGURE 1 

vacuum Chamber Translation / Positioning Mechanism 
and Welding Power Supply Controller 
Ri-Uht : Welding Power Supply Control 1 p>- 

2 4 y D c Power supply, PC23 mtertace P Boa?d? P?23 DB Dr?^s 
S 5VDC Po " er Supply mounted, Daedal Joystick, 3-aJis 
Translation / Positioning Mechanism 
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2.0 Equipment 

The vacuum welding positioning system is composed of a custom 
designed three axis positioning system with vacuum sealed in- 
dustrial grade microstepping motors and three subsystems. The 
subsystems are the IBM compatible PC23 three axis position con- 
trol system with motor interface and limit and home switch con- 
trols, joystick for manual positioning of two axes at a time and 
a Keithly/Metrabyte DAC-02 D/A interface card that may be used 
to control welder start and power level functions. 

The major components that were used to develop the vacuum welder 
positioning system and computer cards that can be used to control 
the welder power supply are listed in Table 1. 

2.1 Translation/Positioning System 

The translation/positioning mechanism for the vacuum welding sys- 
tem under development at MSFC, was manufactured from three in- 
dividual translation devices. The specimen to be welded, namely 
2 - 2-4" wide by 12-14" long by 1/4" thick metal plates, are 
mounted on a specially designed translation table and moved below 
two Daedal model 105021S-20E-LH series linear tables that are 5" 
on a side and provide 2" of linear travel. These tables are 
mounted in tandem on supports above the sample to form a two axis 
positioning system. This permits both vertical (Z) and lateral 
(X) positioning of a welder electrode or other device over the 
sample. Straight line positioning accuracy for these units is 
±0.0004in with a total load capacity of 30 pounds. 
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TABLE 1 


Parts Listing 



Item 

Manufacturer 

Model * 

Serial # 

1 . 

X, Z Translation Motors 

Daedal 

EMA57-51 -V-LH 

2002 

2003 

2. 

Y Translation Motor 

Daedal 

EMA57-51-V-LH 

2004 

3. 

X, Z Linear Tables 

Daedal 

105021S-20E 

9202111501 

9202110501 

4 . 

X Linear Table 

Daedal 

5086141S-LH 

92011550601 

5. 

Motor Drives 

Compumotor 

DB-Drives 

902021000064 

902021000065 

902021000066 

6. 

Joystick 

Daedal 

JS5300 

9112032CN02 

7. 

5 VDC Power Supply 

TDK 

MRW150KV 

9Z414565 

8. 

24 VDC Power Supply 

Sola Electric 

28-24-280-0 

0890210 
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Horizontal positioning of the sample is provided by a Deadal rail 
table model 506141S-20E-LH which provides 14" of travel with a 
straight line accuracy of +0.002 in/in or +0.0028 in over the to- 
tal distance traveled. The units positioning accuracy is +0.0035 
in over the travel with a repeatability of ±0.0002 in. The load 
capacity of this rail is 200 pounds when mounted in the horizon- 
tal direction as used in the position systems. 

2.2 Positioning Motors 

All axes on the vacuum welding translation/positioning system are 
powered by identical vacuum sealed industrial grade microstepping 
motors. As delivered, these motors are programmed for 25,000 
pulses per revolution. One revolution moves the translation 
mechanism 0.20 inches for an approximate resolution of 8x10-6 
in/pulse. The stepping motors are sealed units designed to run 
in vacuum. They have been vacuum prepared to industrial stan- 
dards by Daedal and run off of individual drive controllers lo- 
cated outside the vacuum environment, powered by an independent 
24 VDC power supply. 


2.3 Equipment Mounts 

The translation equipment is mounted to a unit designed and 
fabricated at UAH. The mount is assembled from five heavy 
aluminum plates. The base plate was prepared from a 3/4" thick 
aluminum plate to which the Deadal model 506141S-20E-LH rail 
table mounts using 1/4x28 S.S. cap screws. The base plate has 
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adjustable legs with plastic ends to both level and cushion the 
unit. At one end of this base plate, two vertical supports are 
attached by 1/4x28 S.S. cap screws. These supports were manufac- 
tured from 3/4 inch thick aluminum plate. The vertical support 
members are connected by a horizontal strut that is fastened by 
1/4x28 S.S. cap screws. The horizontal strut was prepared from 
1/2" thick aluminum plate and has threaded holes in the center 
that match the Deadal model 105021S-20E-LH series linear table. 

To the rail table translation platform is mounted the sample sup- 
port table. This table is 14" long and can accommodate samples 
up to this length, though a 12" sample length is recommended to 
provide shielding for the translation components below the unit. 
The table has a channel that is lined with a thin sheet of brass 
to protect the table. The table contains a hole pattern that ac- 
cepts 1/4x28 mounting screws (S. S. cap screws have been provided 
with the unit) . Aluminum mounting dogs are used to secure the 
samples in place and are provided with 1/4 inch spacers to 
facilitate sample capture. This table is connected to the trans- 
lation platform by 1/4x20 black iron cap screws so caution must 
be exercised when connecting or disconnecting this component, 
since all other screws throughout the unit are 1/4x28 S.S. cap 
screws . 
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All mounting plates have been black anodized to minimize reflec- 
tion during the welding process. Electrical cables that power 
and control the motor and translation tables are attached to the 
mount by pee-clamps making the unit easy to move and service. 

2.4 PC23 Positioning Control System 

The IBM compatible PC23 positioning control system is composed of 
three components. A computer interface card that must be in- 
stalled in the back-plane of a 286 or greater IBM compatible com- 
puter. To this card, and external to the computer, is an inter- 
face bus that is connected by cables to the steppermotor drivers 
and home/limit switch assemblies. This external interface is 
powered by a separate 5 VDC interface power supply which is the 
third component. Through the appropriate software, written in 
BASIC, this system provides the pulses to position and translate 
the microstepper motors and protects the unit from damage at the 
limits of translation. 

2.5 Joystick 

The vacuum translation/positioning system has been provided with 
a joystick that can be used to manually position any two axes at 
a time after simple software commands. The proportional joys- 
tick, Daedal model JS5300 interfaces with the PC23 through the 
external interface and provides direction and velocity control of 
any two of three axes. 
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3.0 Control Software 


Operations software for the vacuum translation system is supplied 
on a 5 1/4" floppy disk. Copies of the source code are provided 
in the files, VW.BAS and VW.BAK. A listing of the program VW.BAS 
is provided in Table 2 and can be used as a guide to further cus- 
tomize the software for particular needs. The operations 
software was developed around a demonstration program 
SIMPLEX. BAS, provided by Compumotor for the PC23 hardware. The 
PC23 control portion of the SIMPLEX code has not been altered, 
and a description of its operation can be found in the documenta- 
tion provided by Compumotor. The VW operations software issues 
commands defined in the Compumotor X Command Language in order to 
control the movement of the motor that moves a given axis. 
These commands are also described in Compumotor literature 
delivered with the unit. 

Welder power may be controlled using a Keithly/Metrabyte DAC-02 
two channel digital to an analog converter board and a 12 VDC 
micro-mechanical relay that handles up to 5 amperes. Channel 
one from the DAC-02 turns on and off a relay that can be wired to 
the foot control pedal interface of the welder power to replace 
the on-off switch currently used by the foot pedal controller. 
The power level from the foot pedal controller provides 0-10 VDC 
on the wiper of the potentiometer relative to ground as the 
operator depresses the foot pedal control. This function can 
also be controlled by the computer using channel two of the DAC- 
02. Channel two outputs a proportional 0-10 VDC signal which may 
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be wired between the negative wire of the foot pedal and the 
wiper of the potentiometer. In order to do this the foot pedal 
must be removed from the circuit. The output voltage of the 
DAC-02 is determined by the operations software, based on inputs 
requested of the operator. These inputs are the maximum current 
which the welder operates and the currents at which to weld. A 
linear interpolation is then accomplished and a subsequent output 
voltage between 0-10 VDC determined. Both channels are control- 
led with OUT statements in the VW software. 

The operations software is supplied in compiled form for ease of 
operation and runs from the floppy disk after typing the VW com- 
mand to run the program VW.EXE. The VW software was written and 
compiled using Microsoft's QuickBasic version 4.0. 

4.0 Operating Procedures 

To begin operations, apply power to the 24 VDC power supply and 
computer. Insert the operations software floppy disk into the 
disk drive of any 286 or greater IBM compatible computer (not 
supplied with the system) and access the disk by typing A: or B: 
depending how the system is configured. Once the proper drive is 
enabled, simply issue the command "VW" to begin systems opera- 
tions. At this time all three translation stages will move to 
their "home" positions. The user is then prompted to respond to 
a series of questions regarding the desired weld to be performed, 
and welder system parameters. A list of these questions are 
given in Table 2. 
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TABLE 2. 


Operating Commands and Limitations 


Prompt Limitation or Comments 

Enter the length of the weld (min ,5 inch, max 14 inches)? 

Enter the weld translation speed (min .05 in/sec, max .4 in/sec)? 

Enter electrode weld height (max .5 inch)? No negative numbers. 

Enter time to raise electrode (sec)? Checks max and min velocity. 
Enter the MAXIMUM operating current for the system? 

Enter the initial current to begin with? 

Do you wish to change any of the welding parameters <Y,N)? 



After these questions are answered, the user is then prompted to 
use the joystick to manually align the sample to be welded with 
the welding electrode. Finally, the user must manually position 
the electrode to the initial position and set the desired height 
to begin the weld. 

To align the sample, place the samples on the table and loosely 
tighten the dogs so that the sample will just move. Enable the 
joystick by typing either "A" to move the X (lateral) and Z 
(vertical) axes or "B" to move the Y (horizontal) or Z (vertical) 
axes, per the screen instructions. Using the A or B software 
modes, lower the electrode and position it at one end of the 
table approximately at the center line of the table. Adjust the 
position of the samples until the seam is just below the 
electrode. Select B, and horizontally translate the table to the 
other end and again align the samples with the electrode. Check 
the alignment by horizontally translating along the seam to be 
welded. When the sample is aligned to the users satisfaction, 
tighten the dogs to secure the sample. 

The electrode must; be manually moved to the starting position. 
The starting position is defined as the furthest position along 
the sample seam and away from the motor end of the horizontal 
translation axis. Select B and manually move the electrode to 
this end of the sample and using a feeler gauge, carefully lower 
the electrode to the initial starting gap. Once the user is 
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satisfied with the electrodes position, and vacuum has been 
achieved, the user should press "C" to exit to the next screen 
and follow the prompts to begin welding. 

The next screen menu is then displayed showing system parameters, 
system power ON/OFF, maximum system power, and key functions for 
desired operations. The user can press "S" to begin system 
operations (welder start and power levels are output and horizon- 
tal translation of the samples are begun simultaneously) . 

In operations, the system first enables the start switch of the 
welder power supply and outputs the appropriate voltage to the 
power supply consistent with the operators initial power require- 
ments to strike the arc. It then raises the electrode at the 
user defined rate to the steady welding height which is relative 
to the initial starting height set during the alignment proce- 
dures. It then begins horizontally translating the sample at the 
user defined rate. While the system is translating, the user can 
increase or decrease the welder current in 1% increments of the 
maximum scale by pressing the "U" or "D" key of the key board to 
increase or decrease to welder power, respectively. Pressing the 
"T" key will terminate the welding operations at any time during 
the sequence. 

Upon completion of the defined operation, or interruption from 
the operator, the software automatically turns off power to the 
welder, and returns the translation stages to their home posi- 
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tion. The operator is then allowed to exit the applications 
software or begin another weld following the same procedures as 
described above. 

5.0 Final Actions to Complete and Install the System at MSFC. 

The principle actions to install the system at MSFC is to insert 
the two cards into the back-plane of the user supplied 286 or 
greater IBM compatible computer and check for address conflicts. 
The addresses for these two boards are &H310 for the DAC-02 (the 
smaller board) and &H304 for the stepper motor drive board (the 
larger board supplied) . Further information on these boards is 
available in the manufacturers manuals supplied with the system. 


Mount the panel containing the DB-Drivers and 5VDC power supply 
and interface, noting wire and cable locations if they must be 
disturbed, to a user supplied standard electronics cabinet or 
similar supporting surface. Provide support and power connec- 
tions for the 24VDC power supply. Provide feed through connec- 
tors and cut and connect wires to the motors and limit/home 
switches matching wire colors and gauge. Additional wiring and 
operating information for the DB-Drivers, external interface, 
Home\Limit switches and stepper motors are provided in the 
manufacturer manuals supplied with the system. 
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The final steps that must be accomplished at MSFC are to develop 
a machine mounting hardware to attach the welding torch and gas 
supply lines to the upper translation mechanism and grounding 
wire to the translation table. It has been assumed that the 
mount for the torch, will displace the point of the electrode 2" 
out from the Z translation surface and be mounted such that it 
will touch the translating samples within the 2" translation dis- 
tance of the Z translation stage. 

6.0 Conclusions 

t. The system and associated software has been tested to the extent 
possible without the availability of the welder power supply or 
control computer that must be supplied by MSFC. Software has 
been developed for straight line welding. More extensive and 
varied translations are possible with simple alterations to the 
operating software to use the full capabilities of this three 
axes system. The source code "VW.BAS" has been provided to serve 
as an example for further development of the vacuum welder trans- 
lation system. 

With the delivery and acceptance of the translation mechanism and 
the equipment for eventual control of the welder power supply, we 
have met the requirements of this contract. 
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APPENDIX 1 


Listing of VW.BAS Source Code 
Prepared Using Microsoft's QuickBasic 


L i 
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V 1 0 

r 

* * * 

**************************************************************** 

11 

f 

* * 


* * 

. 12 

/ 

* * 

NASA-MSFC / UAH Vacuum Welding System 

* * 

: 13 

r 

* * 


* * 

14 

r 

* * 

Developed by 

* * 

15 

/ 

* * 


* * 

, 16 

f 

* * 

Dr. James E. Smith, Jr. 

* * 

-—■17 

/ 

* * 

and 

* * 

18 

/ 

* * 

John L. Cashon 

★ * 

; 19 

t 

* * 


* * 

L- 20 

r 

* * 

Department of Chemical and Materials Engineering 

* * 

21 

f 

* * 


* * 

22 

f 

* * 

University of Alabama in Huntsville 

* * 

23 

f 

* * 

Huntsville, Alabama 35899 

* * 

24 

f 

* * 

(205) 895 - 6810 

* * 

25 

r 

* * 


* * 


26 7 ******************************************************************* 
its 27 7 
28 7 
tz 29 7 

>“ 180 GOSUB 200: REM Initialize the PC23 for translation 

'*’190 GOTO 5000: REM Run the interactive Vacuum Welding System code 

_ 191 ' 

; ~ 192 7 
'~193 7 
194 7 
; 1 9 6 ' 

^ 197 7 The following list of variables is used to keep track of 

198 7 addressing and the Control Byte 

= 199 7 

Lr200 ADDRESS% = 772: REM This is the factory default base address setting 
**210 7 

__220 INTRCLR = &H20 'This variable is for clearing Control Bit 5 
r 230 7 (to signal "Restart Watchdog Timer") 

*- 240 7 

250 RESTART = &H40 7 This variable is for clearing Control Bit 6 
£;260 7 (to signal "Restart Watchdog Timer") 

£270 7 

280 CONTROL = &H60 'This is the normal state of the Control Byte 
^ 290 7 (only Bits 5 and 6 are high) 

j= 300 7 

® 310 READY = &H17 'This is the normal state of the Status Byte 
3 320 7 (bits 0, 1, 2, and 4 set) 

*=■330 7 

fc340 HALT = &H64 'This variable is for setting Control Bit 2 
350 7 (to signal the "Watchdog Timer" to time out) 

t 360 7 

|^370 CMDRDY = &H70 'This variable is a mask for setting Control Bit 4 
385 7 (to signal "Command Byte Ready in the IDB or not) 

„ 390 ' 

400 RECEIVED = &HE0'This variable is a mask for setting Control Bit 7 
13 410 7 (to signal "Message Received from the ODB") 

420 7 

II 430 STOPPED2 = 1 'This variable is a mask for testing Status Bit 1 
C 440 7 (is the motor moving?) 

450 7 

£_460 STOPPED1 = 2 'This variable is a mask for testing Status Bit 1 
L=470 7 (is the motor moving?) 

w 480 7 

»._490 STOPPED3 = 4 'This variable is a mask for testing Status Bit 1 
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(is the motor moving?) 


'This variable is a mask for testing Status Bit 3 
(is a response waiting in the Output Data Buffer?: 


v-500 ' 

510 ' 

520 ODBREADY = 8 
530 ' 

*-'540 ' 

550 IDBREADY = SHlO'This variable is a mask for testing Status Bit 4 
: -560 ' (is the Input Data Buffer ready for a command byte) 

w570 ' 

580 FAIL = &H20 'this variable is a mask for testing Status Bit 5 

- 590 ' (has the STD22 suffered a processing failure?) 

600 ' 

**610 MASK = &H7F 'this variable is a mask for the Status byte MSB 
620 ' 

■ 690 ' ******************************************************** 

*-691 ' * * 

692 ' * PC23 "RESET" SUBROUTINE * 

693 ' * * 

694 ' ******************************************************** 

695 ' 

^_696 ' The following subroutine allows the "Watchdog Timer" to timeout, 

| 697 ' and Reset the PC23. Then the timer is restarted. A "GOSUB 700" 

698 ' instruction will reset the PC23. 

699 ' 

■Z700 BYTE = 0: TIMEOUT = 10000 'Set timeout duration 

s-^710 OUT ADDRESS % + 1, (HALT) 'Control Bit 2 high 

720 WHILE (BYTE AND FAIL) = 0 AND TIMEOUT > 0'Test for fail or timeout 
L..730 BYTE = INP (ADDRESS% + 1) 'Read Status Byte 

^740 TIMEOUT = TIMEOUT - 1: WEND 'repeat until timeout or fail 

^750 IF TIMEOUT <= 0 THEN PRINT "Invalid response from address"; ADDRESS% : END 
= 800 BYTE = 0: TIMEOUT = 10000 'Set timeout duration 

^810 OUT ADDRESS % + 1, (RESTART) 'Control Bit 2 high 

''-'820 WHILE (BYTE AND MASK) <> READY AND TIMEOUT > 0 

830 BYTE = INP (ADDRESS % + 1) 'Read Status Byte 

840 TIMEOUT = TIMEOUT - 1: WEND 'repeat until recovery 

i_i 850 OUT ADDRESS % + 1, (CONTROL) 'Restore Control byte 

860 OUT ADDRESS % + 1, ( INTRCLR) 'Restore Control byte 

-070 IF TIMEOUT <= 0 THEN PRINT "Timeout recovering from reset!": BEEP: END 
^8 80 FOR I = 1 TO 1200: NEXT 
^890 RETURN 

- 975 ' 

*_916 ' 

*=977 ' 

_978 ' 
f'983 ' 

C-994 ' 

995 ' 

=_996 ' 
i 997 ' 

**998 ' 

= 999 ' 

C1000 FOR I = 1 TO LEN (CMD$ ) 

v-1010 CHAR$ = MID$ (CMD$ , I, 1) 'fetch command characters and 

1020 GOSUB 1100 'send them one at a time 

0030 NEXT I 

^.1040 CHAR$ = CHR$ (13) : GOSUB 1100 ' follow with a carriage return 

1045 FOR I = 1 TO 1200: NEXT I 
l_1050 RETURN 
0070 ' 

**1100 BYTE = 0: TIMEOUT = 10000 'Set timeout duration 

1110 WHILE (BYTE AND IDBREADY) = 0 AND TIMEOUT > 0'Test for ready or timeout 


******************************************************** 
* * 

* PC23 "BASIC" OUTPUT DRIVER * 

* * 

The following is a handshake subroutine allowing data to be 
transferred from the PC BUS to the PC23. Command string data 
is sent to the PC23 one character at a time. 
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*—1120 
1130 
: 1140 
: 1150 
1160 
.. 1200 
1210 
—1220 
1230 
_1240 
^.1250 
1260 
„1270 
'2 990 
—2991 
_2 992 
^2993 
—2 9 94 
2995 
\ 2996 
r2997 
**2 998 
- 2999 
C3000 
e 3010 
3020 

1 '3030 
L3040 

3050 
. 3060 
LJ3070 
**3100 
3110 
P!20 
*-3130 
3140 
L.3150 
0160 
3170 
^3180 
0190 
**4 000 
4001 

0002 

0 003 
4004 

l_4005 

0006 

5000 

0001 
[3010 
*=5012 
_5020 
0999 
C6000 

6001 
, 6010 
P6015 
6016 
0017 


BYTE = INP (ADDRESS% + 1) 'Read Status Byte 

TIMEOUT = TIMEOUT - 1: WEND 'repeat 

IF TIMEOUT <= 0 THEN PRINT "Timeout during write!": BEEP: END 
OUT ADDRESS% , ASC(CHAR$) 'write command character 

OUT ADDRESS % + 1, (CMDRDY) 'signal character waiting 

BYTE = 255: TIMEOUT = 10000 'Set timeout duration 

WHILE (BYTE AND IDBREADY) > 0 AND TIMEOUT > 0'Test for busy or timeout 
BYTE = INP (ADDRESS% + 1) 'Read Status Byte 

TIMEOUT = TIMEOUT - 1: WEND 'repeat 

OUT ADDRESS % + 1, (CONTROL) 

IF TIMEOUT <= 0 THEN PRINT "Timeout after write!": BEEP: END 
RETURN 

t 

f ******************************************************** 

f * * 

' * COMPUMOTOR PC23 "BASIC" INPUT DRIVER * 

r * * 

f ******************************************************** 


The following is a handshake subroutine allowing data to be 
transferred from the PC23 to the PC BUS. This data is sent 
one character at a time. 


ANSWERS = "" 

BYTE = 0: TIMEOUT = 5 

WHILE (BYTE AND ODBREADY) = 0 AND TIMEOUT 
BYTE = INP (ADDRESS % + 1) 

TIMEOUT = TIMEOUT - 1 : WEND 
IF TIMEOUT <= 0 THEN RETURN 
ANSWER = INP (ADDRESS%) 

OUT ADDRESS % + 1, (RECEIVED) 

BYTE = 255: TIMEOUT = 1000 

WHILE (BYTE AND ODBREADY) > 0 AND TIMEOUT 
BYTE = INP (ADDRESS % + 1) 

TIMEOUT = TIMEOUT - 1 : WEND 
IF TIMEOUT <= 0 THEN PRINT "Timeout after 
OUT ADDRESS % + 1, (CONTROL) 

CHARS = CHRS (ANSWER) 

ANSWERS = ANSWERS + CHARS 

IF CHARS = CHRS (13) THEN RETURN ELSE 3010 

f 


' Initialize response string 
'Initialize variables 

> 0 'Test for ready or timeout 

'Read Status Byte 
' repeat 

'Give up if no message 
'Read 1 response byte 
'Signal character received 
'Initialize variables 

> 0 'Test for busy or timeout 

'Read Status Byte 
' repeat 

read!": BEEP: END 

'Restore control byte 
'convert code to char. 

'Add char to answer 


' The following code was developed for controlling the 
' NASA-MSFC / UAH Vacuum Welding System 

r 

/ 

' *** SUBROUTINE : RUN VACUUM WELDER *** 

r 

GOSUB 6000: REM SYSTEM INITIALIZATION 

GOSUB 19000: REM POSITION ELECTRODE WITH JOYSTICK 

GOSUB 7000: REM RUN SYSTEM 

/ 

' *** SUBROUTINE : SYSTEM INITIALIZATION *** 

t 

CLS 

GOSUB 12000: REM MAKE SURE RELAY POWER IS OFF 

GOSUB 17000: REM SET UP PC23 

GOSUB 18000: REM SEND ALL THREE AXIS HOME 
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t.6020 

6024 

6025 
! 6026 
UJ 6027 

6028 
6029 
^6030 
6031 
_603 6 
: , 6040 
""6045 
. _6050 
- 6060 
1 *-6063 
6070 
* * 6071 
; "6072 
6073 
- 6075 
^6090 
**6100 
6999 

! C 7000 

i 1-7001 
7005 
: |_7010 
: : 7020 
" 7025 

7030 

! 0034 
; '-7035 
7036 
i \ 7045 
: 0050 
7060 
■ 7080 

; 0090 
"*7100 
7110 
! 0999 
; »— 8000 
8001 
i i= _8010 
! 0020 
8030 
_8040 
' : .8050 
^8060 

8070 

I C8080 
! 1 — 8090 
8100 
: OHO 

I 0120 
8125 
. 0130 

i i^8 999 
1 B 9000 
9001 


CLS : LOCATE 1, 1: PRINT "NASA-MSFC / UAH Vacuum Welding System" : PRINT " 

PRINT : PRINT "Enter the length of the weld (min .5 inch, max 14 inches)" 

IF WL > 14 OR WL < .5 THEN PRINT "": PRINT "Value out of range [.5, 14]!": 

PRINT PRINT "Enter the weld translation speed (min .05 in/sec, max .4 i 

IF TS < .05 OR TS > .4 THEN PRINT PRINT "Value out of range [.05, .4]!" 

PRINT "": PRINT "Enter electrode weld height (max .5 inch)"; : INPUT EH: IF 
PRINT PRINT "Enter time to raise electrode (sec)"; : INPUT ET : IF ET < 

IF ET = 0 THEN ES = 0 : GOTO 6036 

ES = EH / ET: IF ES > . 4 OR ES < .05 THEN PRINT : PRINT "Electrode speed 

PRINT PRINT "Enter the MAXIMUM operating current for the system"; 

INPUT CURM 

IF CURM <= 0 THEN PRINT " " : PRINT "Value must be greater than zero!": GOTO 
PRINT "": PRINT "Enter the INITIAL current to begin with"; : INPUT CURI : IF 
CURC = CURI 

IF CURI < 0 THEN PRINT "Value cannot be less than zero!": GOTO 6050 
CURD = CURM / 100 

PRINT "": PRINT "Do you wish to change any of the welding parameters ( Y, N) ? 
KK$ = INKEY$ : IF KK$ = "" THEN GOTO 6072 
IF KK$ = "y" OR KK$ = "Y" THEN GOTO 6020 
GOSUB 21000: REM CALCULATE TRANSLATION VALUES 

GOSUB 16000: REM CALCULATE INITIAL CURRENT OUTPUT VALUES CHANNEL 2 

RETURN 

/ 

' *** SUBROUTINE : RUN SYSTEM *** 


WFLAG = 0 
CLS 

GOSUB 8000: REM SCREEN DISPLAY 

GOSUB 10000: REM OUTPUT CURRENT CHANNEL 2 

K$ = INKEY$ 

IF WFLAG = 0 THEN GOTO 7045 
CSEC = TIMER 

IF CSEC >= SSEC + WSEC THEN WFLAG = 0 
"" THEN GOTO 7030 


GOSUB 12000: GOSUB 8000 


IF K$ 

IF K$ 

IF K$ 

IF K$ 

IF K$ 

GOTO 7010 
RETURN 


"S" 

If rp Tf 

"U" 

"D" 


OR K$ = "s" THEN SSEC = TIMER: WFLAG = 1: GOSUB 11000: GOSUB 22 

OR K$ = "t" THEN GOSUB 12000: GOSUB 23000: GOSUB 20000: REM sto 

OR K$ = "u" THEN GOSUB 13000: REM INCREASE CURRENT OUTPUT 

OR K$ = "d" THEN GOSUB 14000: REM DECREASE CURRENT OUTPUT 


*** SUBROUTINE : SCREEN DISPLAY OUTPUT *** 


CLS 

LOCATE 1,1 

PRINT "NASA-MSFC / UAH Vacuum Welding System": PRINT 
PRINT "Weld Power is "; SCR01$: PRINT "" 

PRINT USING "Maximum Operating Current = 

PRINT USING " Current = 

PRINT "Key Functions:": PRINT "" 


####.## amp"; 
####.## amp"; 


PRINT ’ 
PRINT ’ 
PRINT 1 
PRINT ' 
PRINT ’ 
PRINT ’ 
RETURN 


U 

D 

S 

T 


increase current by 1%" : PRINT 
decrease current by 1%": PRINT 
start operations": PRINT "" 
terminate operations" 
or" 

procede after run": PRINT "" 


" " : PRINT " " 

CURM: PRINT "" 
CURC: PRINT "" 


' *** SUBROUTINE : OUTPUT CHANNEL 1 *** 
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L9010 OUT &H310, 01L% 

9020 OUT &H31 1 , 01H% 

- 9030 RETURN 
= 3999 ' 

“10000 ' *** SUBROUTINE : OUTPUT CHANNEL 2 **** 

10001 ' 

~ LOOIO OUT &H312, 02L% 

— L0020 OUT &H313, 02H% 

10030 RETURN 
_L0999 ' 

: ^J.1000 ' *** SUBROUTINE : TURN POWER ON *** 

*11001 ' 

H.1010 01L% = 240 
: 1 0 2 0 01H% = 255 

: ’=11030 SCROl $ = "ON" 

11040 GOSUB 9000: REM OUTPUT CHANNEL 1 
! EH 1 0 5 0 RETURN 
: 5*1999 ' 

12000 ' *** SUBROUTINE : TURN POWER OFF *** 

’ LJ-2001 ' 
i r.2010 01L% = 0 
*12020 OlH% = 0 
. 12030 SCROl $ = "OFF" 

: ^2040 GOSUB 9000: REM OUTPUT CHANNEL 1 
! *12050 RETURN 
12999 ' 

—.3000 ' *** SUBROUTINE : INCREASE OPERATING CURRENT *** 

i ^ 3001 ' 

13010 CURC = CURC + CURD 
: HE 30 15 IF CURC > CURM THEN CURC = CURM 

j *3.3020 GOSUB 16000: REM CALCULATE OUTPUT VALUES FOR CHANNEL 2 
13030 RETURN 
J.3999 ' 

in 4000 ' *** SUBROUTINE : DECREASE OPERATING CURRENT *** 

; iH4001 ' 

14010 CURC = CURC - CURD 
; H4015 IF CURC < 0 THEN CURC = 0 

• £4020 GOSUB 16000: REM CALCULATE OUTPUT VALUES FOR CHANNEL 2 
14030 RETURN 
H.4999 ' 

i t^.5000 ' *** SUBROUTINE : EXIT FROM APPLICATION *** 

: ^5001 ' 

_150 10 GOSUB 12000: REM TURN OFF POWER 

i n .5011 cls 

i C5012 LOCATE 1, 1 

15020 END 
i =3,5030 RETURN 
i = .5999 ' 

16000 ' *** SUBROUTINE : CALCULATE CHANNEL 2 OUTPUT VALUES *** 

_1 6 0 0 1 ' 

: 6 0 1 0 OX = 4 0 95 * CURC / CURM 

1 Hi 6020 02H% = INT (OX / 16) 

16030 02L% = OX - 16 * 02H% 

: 6 0 4 0 02L% = 16 * 02L% 

! [36050 RETURN 
16999 ' 

, ' *** SUBROUTINE : SET UP PC23 *** 

; C 7 ooi ' 

17010 CMD$ = "1LD0 2LD0 3LD0 1MN 2MN 3MN 1A10 2A10 3A10 1V1 2V1 3V1 " 
H7020 GOSUB 1000: REM SEND CMD$ TO PC23 
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rH^r-H i I H, W H 11 — 1 j" — ' j'jf — I ^ <X, ! r V | CM <M CM., CM CM CM/M CM CM CM CM CM, CM CM CM CM CM, CM CM CO, 

i, J K iJi J .,1 oil mi J nil J i Wliilli I ■lil'ij Hill li 1U Iiiliiinj nil 


-.17 030 RETURN 

17999 ' 

18000 ' *** SUBROUTINE : SEND ALL THREE AXIS HOME *** 

1 18001 ' 

“18010 CMD$ = "1GH+2 2GH+2 3GH-2 " 

18020 GOSUB 1000: REM SEND CMD$ TO PC23 
’ 18030 RETURN 
-18999 ' 

19000 ' **** SUBROUTINE : POSITION ELECTRODE WITH JOYSTICK *** 

= 19001 ' 

- 19020 Jll$ = "1J1 J2 1 $ = "2J1 " : J31$ = "3J1 " 

19021 J10$ = "1J0 J20$ = "2J0 J30$ = "3J0 " 

,19030 B12$ = "X and Z": B13$ = "Y and Z" 

- 19040 CMD$ = J10$ : GOSUB 1000: CMD$ = J20$: GOSUB 1000: CMD$ = J30$: GOSUB 1000: 
^1 90 60 CLS : LOCATE 1, 1: PRINT " NASA-MSFC / UAH Vacuum Welding System": PRINT 

19070 PRINT "Use the Joystick to manually align the plates and positon the elect 
19080 PRINT PRINT "Active axes are SCR$ 

til 9090 PRINT "": PRINT "": PRINT "Key Functions:": PRINT "" 

19100 PRINT " A : Move axes X and Z" 

= 19110 PRINT " B : Move axes Y and Z" 

“19120 PRINT " C : Exit this screen" 

'’*19130 KK$ = INKEY $ : IF KK$ = "" THEN GOTO 19130 


19140 

IF 

KK$ = 

T, A tl 

OR 

KK$ = "a" 

THEN 

CMD$ 

= J30$ : 

GOSUB 

1000 : 

CMD$ 

= J10$ : 

GOSUB 

5 19150 

IF 

KK$ = 

n B" 

OR 

KK$ = "b" 

THEN 

CMD$ 

= J20$: 

GOSUB 

1000 : 

CMD$ 

= J10$ : 

GOSUB 

^19160 

IF 

KK$ = 

"C" 

OR 

KK$ = "c" 

THEN 

CMD$ 

= J10$ : 

GOSUB 

1000 : 

CMD$ 

= J20$: 

GOSUB 


9170 GOTO 19060 

9180 CLS : LOCATE 1, 1: PRINT "NASA-MSFC / UAH Vacuum Welding System" 
9190 PRINT : PRINT "Do wish to change the position of the electrode?" 
9200 KK$ = INKEY $ : IF KK$ = "" THEN GOTO 19200 
9210 IF KK$ = "Y" OR KK$ = "y" THEN GOTO 19000 
9220 RETURN 
9999 ' 

0000 ' *** SUBROUTINE : END OPERATIONS **** 

0001 ' 

0010 CLS : LOCATE 1, 1 

0020 PRINT "NASA-MSFC / UAH Vacuum Welding System": PRINT "" 

0030 PRINT "Key Functions:": PRINT "" 

0040 PRINT " S : start a new weld operation:" 

0050 PRINT " E : end this application" 

0060 KK$ = INKEY $ : IF KK$ = "" THEN GOTO 20060 
0070 IF KK$ = "S" OR KK$ = "s" THEN GOTO 5000 

0080 GOSUB 15000: REM TURN OFF POWER 

0090 RETURN 

0999 ' 

1000 ' *** SUBROUTINE : CALCULATE TRANSLATION INFO *** 

1001 ' 

1010 TV = TS / .2 

1020 TV$ = STR$ (TV) : TVL = LEN (TV$ ) 

1030 V3$ = "3V" + RIGHT$ (TV$ , TVL - 1) 

1040 EV = ES / .2 

1050 EV$ = STR$ (EV) : EVL = LEN (EV$ ) 

1060 Vl$ = "IV" + RIGHT$ (EV$ , EVL - 1) 

1070 WD = WL * 125000 
1080 WD$ = STR$ (WD) : WDL = LEN (WD$ ) 

1090 D3$ = "3D" + RIGHT$ (WD$ , WDL - 1) 

1100 ED = EH * 125000 
1110 ED$ = STR$ (ED) : EDL = LEN (ED$ ) 

1120 D1 $ = "ID" + RIGHT$ (ED$ , EDL - 1) 

~21130 WSEC = WL / TS: REM CALCULATE WELDING TIME 
21140 RETURN 
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-21999 ' 

22000 ' *** SUBROUTINE : START TRANSLATION *** 

s 22001 ' 

* 22010 CMD$ = VI $ + " " + V3$ + " " + Dl$ + " " + D3$ + 
“22020 GOSUB 1000: REM SEND CMD$ TO PC23 
22030 CMD$ = "1G 3G " 

: 22040 GOSUB 1000: REM SEND CMD$ TO PC23 
—22050 RETURN 

22999 7 

23000 7 *** SUBROUTINE : STOP TRANSLATION *** 

;_2 3001 7 

23010 CMD$ = "IS 2S 3S " 

- 23020 GOSUB 1000: REM SEND CMD$ TO PC23 
: 23030 GOSUB 18000: REM ALL THREE AXES GO HOME 
~23040 RETURN 


VI 
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APPENDIX 2 


Listing of Documentation Provided with the Syst 

Compumotor DB Drives User Guide 
DAC-02 User Manual & Software 
JS5300 Joystick: Operation Manual 

Daedal Limit & Home Switch Cable Pigtail Drawing 
Compumotor PC23 Indexer User Guide 
PC-23 Application Developer Disk 1 
PC-23 Application Developer Disk 2 


Daedal Inc. MC5300 Indexer Basic Software 



